ELőSZÉ A MASODIK KIADÁSHOZ 


Mindannyian, akik részt vettünk a Hetedhét Cornmodore 6564 
című Könyv létrehozásában , nagy örömmel vettük tali b jei 
domásul, hogy munkánkat a közönség IS a a kritika is 
kedvező fogadtatásban részesítette, Olyannyira, hogy 
hamar elő kellett rukKkolnunkKk a második Kiadással, mert 
az eléző alig pár hét alatt mind egy szálig elfogyott. 


Oülvasáink Kérésére - és a nyomdai átfutási idő csökken- 
tése érdekében - az eddigi hárorm füzetet egy Kötetben 
foglaltuk össze. s ahol észrevettüK, javítottuk az elő- 
ző kiadás hibáit is. Az új kiadás árát így alacso- 
nyabban szabhattuk meg. mint az előzőé volt, Reméljük , 
olvasóink emiatt nem vonják meg raKkKonszenvüket a 
KönyVtŐl va s 


Budapest, 1985. szeptember 
Novotrade RT. 


HETEDHET 


erarazncdezamrt-esz Et 


MÉSONIK HÉT 


NETED- 


EZ MÁR A MÁSODIK KÖTET 


Keresztülrágtuk magunkat az első köteten, és talán nem 
is eredménytelenül. Van már fagalmunkK arról, hogy a 
Commodore 64 valóban soKoldalú és jó játékszer, ha 
megfelelően tudunk bánni vele. Ez a kötet arra szolgál, 
hogy az eddigi ismereteink melle újabbakkal szolgáljon. 
A számítögép egyre engedelmesebb lesz, ahogy egyre 
jobban beszéljük a nyelvét, és épp ezáltal egyre több 
örömöt szerez. 


1. HAF A VÁLTOZÓ GYÖNYÖRKÖDTET 


Beszeltünk már a vaáltozáókról, amikor a  FOR...NEXT 
ciklusról volt szo. l 

Letezik meg ketfajta valtozó, úgyhogy ideje 
rendet teremteni köztuK. (Ez most matek lesz, de nem 
nagyon veszelyes.) 

Kezdjük egy Kicsi prograrnmal. 


10 LET A-5 
SAL ZA 
RUN 


(CA 19-es sor, ha angol nyelvú mondatnak ertelmezzük, 
azt jelenti: LEGYEN A 5-tel egyenlő. Ez a LET a 
Commodore BASICben elhagyhato, de mi áz attekinthetcseg 
kedveert igyekszünk rendszeresen használni.) 

A gep Kiírja az 5-ös szamot, és azt mondja: 

READY. , 
t ortt készítettünk egy valtozát: A lett a neve, 
es mindjart erteket is adtunk neki: tert Ha ezt a 
Programot most tavabb Írnank , az A betű mindig atot 
jelentene, egeszen addig, amig mas értéket nern adunk 
neki. ; 

Sok ertelme ennek így önmagában nincs, hiszen 
az A betut leirni ugyanakkora fáradság, mint az 5-üs 
szamjegyet. Tudni kell azonban. hogy nern muszáj nekunk 
előre megadnunk a valtozonk erteket; rabízhatjuk ezt a 
gepre. 


18 LET A5s3 

za LET B:s4 

34 LET C5sHtrEt76 
44 


FRIHT C 


jú; 


RUN után a program Kiírja a 85- öt. EZ meg mindig nem 
több, mint amit egy átlagos nyolcéves gyerek egy zseb - 
számológéppel meg tud csinalni, de csak nyugalom, ez 
csupan az alap, ennél sokkal Komplikaltakbb is lesz még. 


19 LET Aás"AGOL" 
29 LET B$z"E" 

38 LET Cszöv" 

49 LET D$5B$tA$HC$ 


50 PRINT U$ 
Ezeket a változokat szoveges string? valtuzoknak 
nevezzük. Programunkbol Kiderül, hogy a szöveges 
valtozákat ugyanúgy összekapcsolhatjuk t jellel, mint a 
- nevezzük neven 3 valós változókat. 

Kiderül továbba az ÚS; hogy a szöveges 


változók elnevezeseben szerepelnie Kell a B (dollar) 
jelnek, hogy megkülönböztessük a többi valtozofajtatol. 
Probaljuk meg kitorolni a $ jelet a Program 39-as 
sorábol, es futtassuk le: TYPE MISMATCH ERRÜR IN 39 0 - 
fogja üzenni a gép, ami azt jelenti, hagy nmern olyan 
Karaktert Kapott; amilyet vart. Ha nincs ott a $ jel; 
akkor a gep szamjegyet var az egyenlosegjel utan , es 
helyette betút, azaz szöveges valtozot kapott. 


Termeszetesen nemcsak betubol allhat ,A 
szoveges valtozo, hanem grafikus jelekbol, irasjelekbol 
(kiveve az idezőj elet), meg szóküzökből es 


/i fi 
szamjegyekbol is. de aKkar is idezojelbe foglaljuk, 
tehát ilyenkor is kell a $ jel. 


19 LET Aász"19" 
29 LET Béz"35" 
30 FRIMT A$£:E3 


, 


EKKor Aa gep semmifele muveletet nem vegez a 
szamjegyekkel, hanem egyszeruen Kiírja aket Ez a 
pontosvesszo miatt szorosan egymas melle sza 19385. (A 


pontosvesszó helyere irhattunk volna t jelet DS a vagy 
eppen sernmit, az eredmeny ugyanaz lenne.) 

A üáltézőkat elnevezhetjuük sokféleképpen, de 
azért vigyázni Kell bizonyos dolgokra. Például ezt a 
három valtozónevet nern használhatjuk akármire: TI, TI$ 
és ST. Ezeket a gép különleges celokra tartogatja - 
némelyikről kesőbb még lesz szó. 


éz 


Ne van még más iz, amire ügyelnunk kell. Peldaul: 


18 LET KHERT£ÉS"KARERT" 
28 LET KALAPSZ"KALAP" 
38 FRINT KRERT£.KALAP$ 


Futtaszuk le a programot. A gép megbokrosodott! Ezt 
Írja Kis 


KALAP KALAP 


Persze nem a gep a vétkezz: mi követtünk el hibat - de 
hat nem tudtunk egy fontoz szabalyt: azt, hogy adhatunk 
ja hosszu neveket is a valtozoinknak, a szamítogep 
azonban csak az elző Ket karaktert veszi figyelembe, a 


tobbit nem. A 12-ez sorbol csak ennyit erzekel: 
KAS-"KABAT" . intakt zd a Éz asbol meg ezt tudja meg" JSASZTKALÁP " a 
És - mint a katonasagnal — itt is áz utolsó parancs az 


ervenyes, ezert a 2090-as sort olvasva a gép kicseréli A 
19-es sor informacioját. Vigyázzunk tehat a változok 
elnevezesenel arra, hogy ugyanazzal a ket betűvel ne 
Kezdjünk nevet, mert a Későbbi felülírja az eldbbit! 


19 LET MARCIPAN$- "MARCIPAN" 
en LET MAZSOLAS- "MAZSOLA" 


(A . ? L 2 8 
Ez Így nern jo. Ugy viszont mar jo, ha azt mondjuk: 


19 LET MIARCIPAN$- "MARCIPAN" 
eg LET MERZSOLÁA$R- "MAZSOLA" 


A gép ugyanis ebben az esetben csak az Mí-et es az M2-t 
figyeli. a tobbivel nem törodik. 
Bizonyítsuk be. 


10 LET MIRRCIPAHES"MARCIPAN" 
zh LET MZRZSOLA$S"MAZSOLA" 
39 FRINT MZ$.M1$.M1$.M28 

RUN 


MAZSOLA MÁRCIRAN  MARCIRFAN MAZSOLA 


Osszefut az ember szajaban a nyal. 


sre 


, 


Es ezen Kívül is kell még egy dologra 
vigyázni. Arra, hogy a változok elnevezésében az első 
karakter mindig betú legyen, Különben SYNTAS5 ERRÜRt 
uzen a gep. ; 35 N ; , 

A harmadik valtozoatipus az egesz valtozo. Ezt 
az különbözteti meg a valos valtozotol, hogy csak egesz 
szám lehet az erteke, törtszám nem. Ezt a típust ritkan 
hasznalják a BASIC programokban, helyette is inkább a 
valos változa szerepel. Mint a stringneKk, ennek isz Var 
egy megkülönböztető jele. a M 
Tegyük egymas melle a hárarn típust, 
hogy tudjuk, melyik milyen. 


TÍPUS JELE FÉLOA 
Valós nincz 7.84 
Egesz ús 195 
String $ "KALAP " 


(CErrlekezzünk csak vissza! Aa EBöSIC 
nyelvben a tizedestortekben nem 
vesszot hasznalunk, hanem pontot!) 

Tudnivaló meg: ! egyazon 
Programon belül Különböző típusú 
változókat elnevezhetünk ugyanúgy ési 
az ABC és az ABC két külön fogalom 
a számítogép szamara; akarmilyen 
hosszu nevet adunk a valtozonknak , a 
Jel eligazítja a gépet, ebból nem 
lesz Kavarodas. Legfüljebb rni KaYV a — 
rodunk bele, ha hosszabb, sokvál- 
gy tozos programot írunk. 
Osszefoglalasul: a változókat kKepzeljük ugy, mint  egy- 
egy úres dobozt, amelyet mi toltuúnk meg tartalornmal a 
programozas soran, és a tartalmat bármikor Ki is 
cserélhetjük. , 

SŐt. most megismerkedünk egy uj fogazzal, hagy 
a program futasza Közben is csereberelhetjuk a debazok 
tartalmát. Ehhez egy új BASIC  utazítast kell 
megtanulnunk ., éspedig ezt: INPUT. Megint csak 
szd, azt jelenti: beadás, bevitel. Ha a s 
iiven utasítassal talalkozik, . akkor megál 

er 


Z , s (aj p. , 
Program futaáasat, egy Kerdojelet rajzcal a Kep 
/ 


varja, hogy mi beírjunk valamit. A program cs 
3 té 
indul tovabb. ha megnyomjuk a RETURNt. 


Do 


i6 IMFLIT Há 
za LET B$sz"LOM" 
ad LET L$-H£tE£ 
ab FRIHT C$ 


Ezra program azt probalja Ki, hagy hany élte 99) a 14 B vegú 
szót ismerunk. Futtassuk le! , 

A RUN után a Képernyő bal szélen megjelenik 
egy Kerdojel. Gepeljuk bes: IRODA . és nyomjuk meg a 
RETURNt . 


A gép kiírja: IRODALOM. ; j 
7 f/ 
Ha Ujra futtatjuk. es a kerdőjel utan azt 
Írjuk: —ALKA, az ALKALOM szd alakul ki a — RETURN 


megnyomása utan. 
Tobb INPUT utasítast is írhatunk ugyanabba a 
(4 /A [/ Fal 
programba. Javitsuk ki az előzöt igy: 


ia IMFUT AZ 

15 IMFUT 0$ 

za LET Báz"LOM" 

38 LET LE-RRtESHÍI§ 
48 FRINT C£ 


A RUN után özlzászálgtkkik a. kerdojel, Írjuk be: AKAC. A 
RETURN megnyomás tan egy ujabb Kérdőjel tunik fel az 
eloz a alatt. ád írj juk azt: BOS. A RETURN után a gep 
felelete: AKACLOMBOS . 

E ; Nézzük at tehat, milyen neveket adhatunk 
valtozoinknak, mik ennek a szabalyai. 


, — , — PRINT - 193 cNem jó név, mert a PRINT egy 
letezo BASIC utasítás. es az ilyenek foglaltak)? 


Hi - 710 (Joó nreu, mert az elsó karaktere badúd 

1H4H —- A7 (Nem jó, mert az első Karakter nem 
betű) 

FORM - 198 (Nem jo. mert benne van egy BASIC 


utasítás, a FÜR) 
FEET 
PR §- EK CcJo, mert a PRINT iz Így Kezdődik 
ugyan , de za valtozonevben nincz benne az egész BASIC 
szo) 


TI$ — "HUSZONKILENC" (Nem je, mert foglalt; 
egyike a háram nevnek, amit nem használhatunk.) 3 
SENROLUYWIMNMSNCHOCH zs 1 (Já NEV, csak eleg nagy 


[/4 7 
za HEHF SZERELEPÍTŐL  LEYVELIG 


/ Z [/4 fá 

IrjuK Ki a kepernyore a sved Siv Widerberg Szerelem 
ÉSZ 7 

cimu verset - sztringek használataval! 


5 PRIMNTéT" : REM SHIFTHÜLR/HOME 
19 FOKESSZBB , z : POKES33281 : 1 

29 PRIMTSA" : REM CTRLH3 

30 S$2z"STEIM-MALTEMRAK " 

40 M$sz"NAGY. VOROS ES ELALLO" 
s Féz"FUL" 

60 E$z"E VAN." 

é5 A$z"A " 

70 SZ$5"MEKEM TETSZIK" 

ag PRINTS$: HE 

98 FPRIMTF$:E$ 

198 PRINTSZ$ 

118 PRINTA£:MH$ 

129 PRINTF£ 


Ha seft urttatjuk a programot, " elolvashatjuk a listából 
eldggé rejtélyesnek tűnő, kedves kis VESSET a Közben 
pedig, ha összehasonlítjuk a Programlistát a Kesz 
verssel, a stringekról tanultakat is atismételhetjük. 


Emlekszünk ra, hogy a hatodik napot egy labdat 
mozgatc programmal fejeztük be. Elegge siralmas Kis 
Programocska volt ez, ami azt illeti: zotyogve, 
villogva haladt a galya, es raadasul csak balrol 
jobbra. Most már: tudunK eleget ahhoz, hogy megírjuk ezt 
a Programot sokkal rövidebben, es a golyo , nemcsak 
jobbra fog haladni, hanem ide-oda pattcg a Kepeéernyonr , 
amíg a. STOP gombbal meg nem Allítjuk. 


161 


18 REM JOBBRA HALAD 
zi FRIMT "4" 

39 FOR JOsi TŰ 39 
48 FRIMT " well"; : REM CRSR6ó 
ad FOR ks1i TO 18:MEXT 
ég MEXT JÓ 

199 REM EALRA HALAN 
118 FÜR FAz1i TŰ 39 

iza PRINT "E6 HM"; 

139 FÚR ksl1 TŰ 18:NEXT 
149 MEXT FR 

159 GÜTŰ 38 


Néhány megjegyzezt mar: 
bele is Írtunk a prog - 
ramba (REM-mel elkülö- 
nítve), de még tarto- 


, 
zunk egy magyarazat - 
[A 
tal: mitol mozog a 
, 
golyo? 


ú Nezzűk meg a etringunket! A kötelező idézőjel 
utan egy ures szóközt hagytunk. Ez az ures hely fog 
Kirajzolodni a golyó elotti oszlopban si es ezaltal 
kitörli az előző golyot s így fog majd úgy tűnni, hogy 
a galya átkerült az egyik oszlopbol a masikba. A string 
harmadik eleme eggyel balra lépteti a cursort. Enélkül 
az üres szoKOZz a sztrin3 elejen nem az előző golyot 
töröolne Ki, hanem az utana Következő úres helyre 
Kerülne, éz így 3. 301yo nem haladna előre, hanem egyre 
tabb golyó rajzolódna Kis y 

Ugyanez a helyzet a balra halado golyoval: ott 
az uras szakoz a golyo jobb oldalan foglal helyet, 
hiszen az új a901yo mindig az előzotól balra rajzolódik 
Ki; a cursort pedig háromszor kell balra mozgatni a 
string vegen. hogy a következő lepésben egy hellyel az 
előzotól balra kezdje a kiírást. 

A stringekkel most mar elegge 361 tudunk bánni 
ahhoz, hogy a tornázo robot programjat - 1d. a hetedik 
napot az előző kötetben -— meg tudjuk Írni ebben a 
formaban is. Ugye észrevettük, hogy stringnek nevezzük 
akkor is, ha nem értelmes szövegből all. hanem grafikus 
jelekből? 


11 


19 FOKE 5S3299,6:REM KEK LESz2 HA KERET 
. 29 FOKE 5323281.6:REM KEK LESZ A HATTER 
39 FRINT "4":REM FEHER LESZ A RŐEÜT 
48 PRINT "9":REM IJRES FH KEFERNYÜ 


Jd PRINT " sz REM SHIFTHM.SHIFTHM 
609 FRINT " em (REM SHIFTELSHIFTHk.SHIFT-I 
78 PRINT " Io. 1":REM SHIFTte 
80 PRINT " taemeel H : REM SHIFT$I.SHIFTH4, SHIFTHK 
98 FRINT " E": REM Cst... fs5t.I 
1929 FOR zi TŰ 5 
. 118 PRIMT " MESZ" : REM Üztt 
128 MEAT A 
1309 FÜR vzsi TŰ 4 
149 FPKINT " ko K" 
129 MEXT Y 


169 FOR:I sz 1 TO 288:MEAT 
170 PRIWT "9" 


189 PRINT " eg 
198 FRINT " Fegzzssze tj 
290 PRINT " boa" 
219 PRINT " bagszrátii 
z28 FRINT " NH" 


239 PRINT "ete zzz kek" 
249 FÜR Zs1 TO 4 i 

250 PRIMT " ESZ ázáB 

260 NEAT Z 

270 FRIMNT " kk ok" 

za8 PRINT " Ww gk" 

298 PRINT " 4 ú ke" 
399 FRIMT " 4 g" 
318 FOR Is1 TO 298: MEXT 
320 GOTŐ 44 


Ezt a programot iz, csakugy, mint az előzot, A sTOP 


gombbal lehet leallítani. Utana el lehet szorakozni 
/ d a 
azzal, hogy atalakitjuk, ahugy szüuktuk; egyetlen 
dZÉT ok zet dés - a pe 
szamjegy atjavítasával nyurga vagy tamzsi rabotat 


csinálhatunk stb. 


12 


Mast meg egy kicsi pPragram; sokféle 
változóval, INPUTtal.,. hogy világosan értsük, mirol van 
szó. Gépeli uk be ezt a Kis programut , amely először 
megkerdezi E-t szemelyi adatainkat, aztán a Képernyőre 
kiírja a neévjegyűnket. 


A REM MEVJEGY 
B PRIMTET" 
8 PRIMT "MELYIK VAROZERH ELSZ?" 
3a IHFIUT v£ 
át PRIHT"MELYIK UTCHERM?" 
38 INFUT U£ 
68 FRIHT"MI A HAZSZRM?" 


7a IMHPUT H 
am FRIMTNI AZ IRAMYITÓSZAM?" 
38 IMFUT IA 


149 PRINT!" 

118 PRINT"IME A LAKCIMED: " 
128 PRIMDIA5V$ 

178 PRIMTIJÁ:" UTTAS;H 


Z ? 4 4. 
Figyeljük meg a valtozokat. A varaoaz neve (Vp) szoveges 
1 j FEET A VTSÁ f 
valtozó, akárcsak az utcanav CGÜBŐ a AZ iranyitoszam 
egesz valtozo, mert ott törtszamnak nincs ertelme. A 


4 VA 
hazszam viszont valds ualtozó, mivel ha valaki peldaul 
zt, 
az Avokado utca €24.-2585-ban lakik, az ilyen farmaban 
ve z a, a 
teirhatja: 24.26 - ezt ugyan tizedes törtnekKk fogja fel 


A z Fv 8 PET ő 8 
a gep. de mivel szamolnia nem kell vele, csak Kiirnia, 
z : 
ezert nem ckazunk bajt. 


Vj 
Egészíts uk Ki a. PpPragr amott ugy , hogy, 
, J 
telefonszamot. is Kérdezzen, es a kiiraskor a lakcím ala 
tegyel 


r4 


, Fúj V 
EpPpP eleget tudunk a vaitozakroól ahhoz, hagy 


2 z K. dj 

meg írjunk egy olyan programot, amely egy taborozo 
z 9 . , ), 1 .r 

gyerek levelet írja Ki. a képernyőre. A level szzöovege az 

alábbiakban olvashato, a programban a kipontozott 


reszek helyere Külonfele fajtajú változókat írjunk, 
méghozzá ugy, hogy az erteküKk INPUT formajaban kerüljön 
a helyere, 


"Kedves s: ss! ; 
Kérlek, Küldj sürgösen ... darab ...-t, 
a ...-m, és ha ...-ra sem lesz, akkor ... 


mert elfogyott 


Ezt a programot most segítség nelkül írjuk meg 
- kKönnyíteésül annyit, hogy a Kipontozott részek helyére 
kerülő változókat mi így neveztük el: CIMZETTE, DARAB, 
MI$, MAGYARAZAT S, HATARIDOS, KOVETKEZMENYE; azaz, 
röviden: CI$, DA, MI$, MAF. HAFR, kos 
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ma. MHEE FELTÉTELES MÓDBAN 


SoK mindent tudunk már a számítógép Képességeiről, de 
a [4 / [4 Z z úz .. 
egy igen fontos lehetősegről meg szót sem ejtettunk. 
Eddig Kétféle módon dolgoztattuk a gépet: vagy 


úgy, hogy sorra vette a programsorokat, a 
legalacsonyabb sorszámúval Kezdve, vagy pedig - mint 
mondtuk - "Külön Kérésre" Kilépett ebből a folyamatból, 


és a GOTO utasítás hatására átugrott az általunk előre 
megnevezett programsorra. 

A gépet azonban feltételes módban is 
utasíthatjuk. Hogy ez hogyan megy , arra nézzünk egy 
nagyon rövidke Kis programot. 


19 LET FAsH5t1 
. 28 PRIMT HA: 
39 IF AZT1ga THEN GOTŐ 19 


44 EMD 
No, itt aztán van mit nézni. Először is itt a 1909-es 
sor , amely ellentmond mindennek , amit eddig 
VA [/A 
matematikából tanultunk, Hogy lehet A egyenlő 


CAt4t1)-gyel? Hát úgy, hogy ez nem matematika, hanem 
BASIC, és ez nem egyenlet, hanem a gépnek adott 
utasítás: azt. jelenti pontosan? "az A-nak nevezett 
változó értéket növeld meg eggyel". 

Ha külön nem mondunk mást, akkor a gép az NA 
első ertéket 9-nakKk veszi. és onnan növeli eggyel minden 
alkalommal. amikor erre a programsorra ér. 

A 2909-as sor, ezt regota tudjuk, Kiírja az A 
mindenkori erteket, es utána nem lep rogton új sorra, 
mert ott a pontosvessző. 

Az igazi érdekezség a 3909-as sorban van, Az a 


talán ismeretlen jel azt jelenti: "kisebb, mint". 
4 pá té : 

(Figyelem! a fejezet vegen osszegyujtve bemutatjuk 

ezeket a jeleket ti aki türelmetlen, már most 


adalapozhat!) Es ott van még az a két ismeretlen szórs 
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IF és THEN. Ezeknek van pontos magyar megfelelőjük: HA 
és AKKOR. E két szó az angolból változatlan értelemben 
került át a BASICbe. vagyiz egy felteteles modot yezet 
be a pragramba. BASICből magyarra fordítva a sort, 
ilyen mondatot Kapunk tehát: "Ha A kisebb. rnint száz. 
akkor menj a 19-es sorral" 

A aép tehát egyesével növelgeti Ő értéket, éz 
minden alkalommal ellenőrzi, hogy elérte-e a 199-at. Ha 
A értéke 199-zal egyenlő, akkor a 3909-as ser betöltötte 
szerepet, a program tovabb fut: rá a 4989-es SÖVBA , és 
ott azt találja: END. 

Ez új utasítás ugyan. de jól ismeri mindenki, 
aki látott mar angol filmet; a szó.azt jelenti" EGE 
Ha tehát az A értéke eléri a szá 
futásának vége. ; 

, Vilagosabban fogjuk latni az IF... s THEN 
szerkezet lényeget, ha a programunkat atalakitjuk. 


19 LET A5sRr1 

. 29 PRINT A; 
39 IF AsíiAA THEN EMI 
49 GOTO 18 


Az előbbi esetben igy okoskodott a aep, amikar a 3890-as 


(4 
sorra ert: "Kisebb az HA erteke, mint 1997 Igen, Akkor 
1 
zza " is ment 


zazat. akkor a pragram 


vissza Kell mennern a 19-es sorra." Es ma 
mirdaddiád. amig a feltétel nem teljesült; vagyis 
ameddig A valóban Kisebb volt 104-nal. Ha A elérte a 
199-at, vagyis nem valt Kisebb. akkor tovabblepett a, 
pragramban. 

Most, a másadik esetben ugyanolyan feltételes 


módú az utasítaásunk, de a gép gondolatmenete más. 
"Egyenlő A erteke 198-zal7? Nem? Akkor megyek tovább." 
Es ment tovább a következű sorra, anélkül, hogy 
megvizsgálta [Vai al a 6 ASSRT ns ő 4311 a THEN után a sorban, A THEN 
utáni utasítást ugyanis a szamitógép csak akKop hajtja 
vegre, ha az IF utáni feltétel igaz. A THEN egy zárt 
ajtóhoz hasonlítható, arnrely csaK akkar nyilik jogán Hl ha 
teljesül a feltétel, amelyet az IF szabott. 


( Úgy szokták magyarázni, hogy az 
IF...THEN szerkezet két ágra 
nyílik szét: az "igen" ágra és a 
"nem" jgra. "Igen" ágnak nevezik 
azt, amelyik a THEN utani uta- 
sításakból áll. Ide akkar jut el 
a program, ha az IFben meg - 
szabott feltételek teljesülnek. 
Ha nem Így történik, akkor a 
"nem" ágra fut a program, ez az 
ág pedig az IFet követő első sor 
első utasításával kezdédik.) 

Masodik programváltoza- 
tunkHak van egy másik tanulsága 
is: nem biztoz, hogy a Program 
vége egybeesik Aa Pragramlista 
végével. Ha Ez IF...THEN 
." szerkezet úgy Kívánja, az END 
utasítás után ezer Pragramsar is 

következhet mega. 

Csinaljunk egy apro modosítást a pragram második vál - 
tozataban. 

18 LET AzHt3 

29 FRIMT A; 

aa IF Asitú THEN EHN 

44 GOTO 18 8 
Futtaszuk lel Meglepetés fog érni: a program jócskán 
túlfut a szazon, esz ugy írja tovabb a Képernyőre a 

amokat, mintha soha nem akarna abbahagyni. Le kell 

lítanunk a STOPpal. 

Mi történt itt? Egyszerú: ha hármasával 
szamolunk, akkor az IFben megszabott feltétel sohasem 
teljesül: a 1OAM nem aszthatoa harommal. A "THEN Kapuja 
csuKuGa marad, az ENDŐre nem fut rá 


bú 


a 


a Pp 
A megoldás: egy uj jelet kell hasznalni, azt, 
hogy 5-5. (Nagyobb, vagy egyenlű.) a 3080-as sar tehat így 
alakítandó at: 

sA IF 6§7-197 THEN ENŐ 
Ez mar egyértelmű : az A értéke most mar legfeljebb 
kettovel haladhatja tul a szazat. 
Az IF...THEN sok-sok BASIC programban jon majd 
e 


a zegitsegunkre. Peldaul A következében, amely 
Kiprobaljás hogy milyen fejszamolo., aki használja. 
(Persze csak alapfokcan.) 


17" 


A REM FEJSZAMOLTATÓ 

18 PRINT "HELLO!" 

28 FOR Isiz TŰ EA STEF 3 

38 PRINT "USS BE Z SZAMOT , RMELYEK ÖSSZEGE"; I 

46. IMFUT A 

ja IMFLT B 

68 IF AtEzI THEN FRINT "ŰKE, HELYES AR VALASZ." :GOTŰ 88 
va dosam "EZ MEM STIMMEL: FROÓPBALD ÚIRA!P": GOTŰ ZA 

39 TT I 


Az egész Programot egy FOR...NEXT ciklus fogja közre, 
amely 12 ds 60 között hármasával lépkedve adja fel a 
számokat. A két INPUT sorban adjuk be a szerintünk 
helyez Két megfejtést, amit a program összead, az 
eredményt összehasonlítja az általa feladott I-vel, és 


ha a kettő egyezik Ca gen" Ág), akkor a 8909-as 
programsorra Küld.. Ha az összeadást rnern sikerül 


megoldanunk , tehát rossz szamokat geépeltünk be, akkor a 
THEN után következő "igen" ág helyett a Program a "mem" 
ágra ugrik, enyhen megró a pontatlan feleletért, es - 
újból feladja az előző szamot! cVilaáagos, hiszen nem 
lépett tovabb a NEXT I-t tartalmazó 3939-as sarra, hanern 
előbb visszafordult.) 

Vállalj unk egy Kis Kockázatot: egy fontos 
tanulság Kedveéert rontsuk el a jo programunkat! 
Töröljük Ki a £0-as sorból a GUTO 80 részt! A prograr 
elveszíti a józan ítelőképesseget: ha helyes valaszt 
adunk, akkor előbb megdícsér , de utána ugyanugy megrő, 
mintha hibáztunk VOLA esz ugyanazt a szamot adja fel 
újra és új DEAL fek végtelensegig. ; 

Vigyáznunk kell erre: a Programnak mindi9g meg 
kell mondami. hagy mit tegyen, ha a feltetelek 
teljesülnek ítehat az "igen" ag iranyat), Különberi a 
"hnem" ágon folytatja, es elvisz bennünket az erdőbe. 

Végül VAa 1tsuk be ígéretünket: gyújtsüKk ki a 
két mennyiség egymás közti viszonyát Kifejező jeleket! 

JEL — JELENTÉS 

z (egyenlő) 

(nagyobb. mint)? 


8 (kisebb, mint) 
; 289 (nem egyenlo) 
92 (nagyobb vagy egyenlő) 


£z (Kisebb vagy egyenlo) 


zt. HHF TEGYÜNK TÚL GAUSSON! 


Ezt a fejezetet egy Kis történettel kezdjük; lehet, 
hogy zokan ismerik, de talán többen vannak, akik nem. 


A Későbbi nagy matematikus, Karl Friedrich 
Gauss ( 1777-1955) mar iskolásgyerekkoráaban igen jdeszű 
fiú volt. Egy szaáarmtandran a tanár, akinek valami sürgős 
maszek munkaja akadt, szerette volna, ha nem Kell az 
orat megtartania, ezert egy feladatot adott az 
osztálynak, ami - gondolta naivan - majd lefoglalja a 
nebuldkat, s fej nyugodtan végezheti a munkajat. 
"Gyerekek , adjatok assze az egesz számokat 1-tól 
1929-ig!" - mondta, ez leült dolgozni. Azzal azonban nem 
számolt, hogy zseni is van az osztályban. A Kis Gauss 
alig pár perc után jelentkezett az eredménnyel: 5050. 

A tanár dühösen, de elképedve kérdezte, hogyan 
számította ki ilyen hamar . Gauss elmagyarázta a 
módszerét: észrevette. hogy ha az 1-től 199-ig tartó 
számsor Ket végen allo szamot összeadja, 191-et Kap 
eredményül. Ugyanígy 101 jön Ki akkor is, ha a második 
és az utolsó elotti szamot adja ossze (2193), És így 
tovább, míg a sorozat Közepen az 50 és az 51 összege is 
éppen 191. Ezért a 191-et megszorozta 540-nel, és máris 
Kezében volt a megoldás: 5050. 

Gauss gyorsan Kiszámította az eredményt, de 
meg o sem versenyezhet a Commodore 64-gyel, ha 
megfelelő programot Írunk rá. Írtunk is: geépeljük be, 
futtassuk le, aztán beszélünk rola. 

18 REM GAUSS 

20 AzA 

39 FOR I51TO1AB 

4 AszAtrI 

5 MEXT I 

Ét PRIMT H 

7a Aszü:Is1 


1m 


a8 AZH4rI:IsIt1 

34 IF I51898 THEM FERIHT A:END 

198 GÜTOSK 
RUN után alig egy mázadperc telik el, éz a gép mar: irja 
az eredmenyt: 5959. De mi van itt7 Még egyszer Kiírja, 
az előző alá. Csak nem kétszer számolta ki ez az egy 
Program? 

ne BIZONY; pontosan ez törtent. Mégpedig 
azért, hogy szemleletesen be tudjuk mutatni: a 
FOR...NEXT ciklus és az IF...THEN szerkezet tökéletesen 
tudja helyettesíteni egymást bizonyos teladatokban zi 
például ebben. A prograrnunk első része (a 2909-as sortol 
a 69-asig? egy FOR...NEXT ciklus. amely ket vaáltazot 
használ: az H-t meg az 1-t; az I egyesevel lépked a 
számsoran 1-től 1090-ig, az A-ban pedig — sorban 
összeadódnak ezek a számok, és a végeredmeny kiíródik a 
Képernyére TS a 


A Program másik resze (Ca 1200-es sortól E-t 1019-asig? 
ugyanezt végzi el egy IF...THEN szerkezettel. Itt 
érdemes megfigyelni: 8— Év "igen" ágon Kiiratjuk A 
ertéket, ez vége a programnak , a "nem" agon pedig 
visszakuldjukKk a 89-as sorra, hagy novelje tovabb az 
I-t, egeszen az utolsó, a 1990-as ertekig. 


Az ENÜ utasítas barhol elhelyezheto a 
Programban, akar ideialenesem is - ha peldaul valarni 
nem úgy működik a programunkban , ahogyan elterveztuk, 
éz szeretnenk megkeresni a hiba forrasat. Ilyenkor 


valahova beírhatjuk (célszerű persze, ha külön sorba) 
az ENDet. es a program czak odáig 3 4.9 ii ató utána READYvel 
Tteáli: Ily módon akár sorról sorra ellenőrizhetjük a 
PpPragramurnkat, ha az ENDet átrakjuk új es uj helyekre. 
Az END hatására idd elütt leállt pragramat folytatni is 
tudjuk, ha. begepeljük a CONT utasítást, és megnyorajuk a 
RETURNt. (CONT a "continue", azaz "folytasd!" angol szó 
rovidítese.) 

Probaáljuk Ki: 3 Gauss-prograrmba írjuk be a ket 
ciklus hatarara az ENDet (például 65-ús sorszámmal): 

ig REM GAUSS 

za Az 

39 FOR IsiTO1AA 

464 HzHtI 

-ü MEAT 

sű FRIHT HA 

éz EHD 

7A Art: I51 

88 AzAtI:I5It1 

ag IF I5188 THEM FRIMHT K:EMD 

1969 GUTOSA 
Most a program csak egyszer írja Ki az 5959-et, és czak 
akkor fut rá az IF...THEN szerkezetes programreészre, ha 
megrmondjuK neki: CONT. 

A "nagyobb", "Kisebb" jelekkel vegezzünk most 
el egy mealepő Kísérletet! Irjuk be ezt a Kis 
Programot! 

A REM REC 

ia IMFUT "ELSŰ HEV": A£ 

26 IMHPUT "MASODIK MESS; ES 

za IF A$7E$ THEM FRIMT A£, E$ GOT 38 

464 FRIMT FE$.A£$ 

at EMI 
Ez a program ABC-sorrendbe állít Ket bármilyen nevet 
( uagy más szot). Szokatlan gondolat szoveges változok 

n 


esetebe a "Kisebb" jelet használni, hiszen hogyan 
L 7 A vé [/d 
"Kisebb" az A a B-nel? Hart ugy , hogy a  betuknek a 
4. 4 1 
gepben Kodszarauk Gara arnelvyv az ABC carrendjeben 


novekszik. mikor a gep az INPUT sorokban megkapja a 
ket nevet, e kódszámokat hasonlítja assze, és eszerinti 
sorrendber irja ki oket. Só£, azt is tudja: hogy az 
ANNAMHAPRIA kezabb jan az ABC-ben, mint az ANNA! 


fh 
hi 


Fejezzük be egy feladattal: az összeadást 
gyakoroltató program mintajára írjunk egy elyat., 
lamelyiKk felad két számot 1 és 20 között, és a 
szorzatukat Kérdezi a használótol; ha helyes választ 
Kap, akkor tovább lép, ha helytelent, akkar Korhalo 
szavak Kísereteében még egyszer feladja ugyanazt a Két 
számot. 


mi. HEHF VEKTOROK, MATRIXOK ES MÁS RIADALMAK 


Ha valaki vektorokat emleget előttünk, ne szaladjunk el 
messzire Csi ezek serri veszélyesebb fogalmak , mint 
amelyekkel eddig megismerkedtünk. A BöSICben a vektorok 
olyan valtozócsoportok, amelyeket azonos néven tartunk 
nyilvan, de megszamazzuk oket, hogy áttekinthetőbb 
legyen a programunk . 

: Még ilyen ostobaságot! Hiszen a változok 
elnevezeseben eppen az a poen, hogy jól különítsük őket 
el egymastol (CIMZETT$; HATARIDOS - és így tovább...) 
Most meg azzal jon elo valaki, hogy nevezzük Öket 
egyforman , attol attekinthetőbb lesz; ez teljes örület. 

Csak türelem, nézzünk nehany peldát. 


SZÖVEGES VALTOZO SZÖVEGES : VEKTOR 
K$ - "KUTYA" HAH( 1) - "KUTYA" 
M$ o - "MACSKA" HA$( 2) - "MACSKA" 
L$ z "LO" HA$C3) - "LO" 

C$ - "CSIRKE" HAHC4) - "CSIRKE" 


A programunkban mindkét fajtat hasznalhatjuk; akár 
PRINT Kg. akar PRINT HA$( 1) all a Programban , a KUTYA 
ugyanugy megjelenik a kepernyon. ; Mi 8 

Termeszetesen szamszeru valtozokat is 
elnevezhetünk Így: 


ARC12 5 1 
Aé23 s e 
AESA ZAB 


es igy tovabb. De ezzel meg nern magyaraztunk meg 
semmit. "Ez most mi van? - kerdezheti akarki. Hz Miert 
ne hasznaljam a regi, iol bevalt valtozoimat, rninek 
nekem a vektorak?" 


zzz 


1 VA .. , 
Hat előoszar is: 3. vektarok segítsegevel 
Könnyebb nyomon követni, mi törtenik a programban. 


(CEddig csak ilyen kis nyúlfarknyi pr.agramocskakat 
4. z, 
írogattunk , de arniKor mar sak szaz vagy ezer sorban 
. Zé 
kell eligazodni, zOoKKAal attekinthetobb, ha az 


.. , 7 ? A 

osszetartozo valtozokat vektorokba rendezzük.) Emellett 

rengeteg programozási idát is megsparalunk. Nézzük meg 
(A 7 

peldaul az alabbi programot! 


18 FRINT "7" 
zú FOR Is1 TŰ 18 
39 PRIHT I;"HAZ:SALLAT";: IMPUT HRE(I: 


4f8 MEXT I 
ag FOR Msi TO 198 : FRKIHT HAE(M? 
68 NEXT H 
No , tessek, s e ak le ki programut , és utana 
. Próbáljuk meg megírni ugyanezt vektorok nelkül! Sok 


időbe fog Kerülni, de cz3k rajtá., probaljuk meg. 
HOo$- t01 H9$-ig nevezgethetjuk a valtazdinkat, amit a 
fenti Prograrnban a szamítogep vegzett el helyettünk, 
összetartozó tömbkent kezelve valtcozainkat. ; 

Ha valaki mem s2:gjnalta a faradsagot, es 
megírta a programot, meglatta. mennyi idot takaríthat 
meg a veKktorokkal. De mielőtt tovabbmennenk , nezzük red 
gyorsan, hogyan bant el a programunk a FOR. ..NEAT 
ciklusban a vektorvaltözokkal. 


1) A FOR...NEST ciklus sarban behelyettesítette az I 
ertékeit a zárójelek Köze, ugyhogy a vektort igy 
gongyolítette fel a gep: 


FOR I — 1í1 Tü 187 
HAR(C1) ( itt kezdi a ciklust eloszor 
HA$C2?) ( masadszar er a FORhoz 
HAPRC32 ( harrnadszor er a FORhoz 
HAZ(4?) stb. 
HARC S) 
HAg( 62 
HAR( 7) 
HAXK 53? 
HARK Ja) 
HAHr( 192?) 
NES5ZT I 


sz mk 


2), Minden INPUT sztringet, amit begépeltünk, sorban 
rmegszámozott vektorváltazóként eltárolt a gép. 


3) Az 5909-es sarban található PRINT utasítás egy másik 
FOR...NEXT cikluson belül van, ez a ciklus 
helyettesítette be a számokat 1-től 19-ig a kiírás 
alkalrnával. 


Ne rn véletlen, hogy éppen 19-et választottunk tömbünk 
nagyságának. EKKorát engedélyez ugyanis a gép anelkül, 
hogy előre a tudomására hoznánk, mekkora lesz a 
vektorunk. Pontosabban 11-et, mer: t 9-tól 19-ig 
automatikusan helyettesíti be a számokat a zárójelbe, 
de afölött mar nem. Ekkor a gép hibaüzenetet Küld; 
hacsak előtte észnél mem valtunk, és . nem irtuk meg, 
meKkKora veKktorra gandoltunk. 

Ezt a műveletet dimenzionálásnak nevezik (a 
dimenzió kiterjedest jelent2). Az erre vonatkozó BASIC 
szó a DIM, és a  1I0-nel nagyobb  vektarunkat igy 
dimenzionálhatjuk: 


DIM A( 1592 


ami azt jelenti. hogy az A  vektornak legfeljebb 151 
eleme lehet. (Az elemek érteke - valós változóról lévén 
szó. valós szám, tehát egész es tort is "lehet.) De 
ugyanigy dimenzionálhatunk stringváltozokat is: 


DIM AB$( 302 


1 ; 
ahol az AB$ nevü string 31 elemű lehet. 
[j 17. .. .. [// 
Lassurnk egy Kis programot, amely 1598 kulonbozo 
[4 a." a. 1 
sugaru Kor területét szamolja Ki. 


19 FRIHT"WG" 

za DIM KT(1587 

39 FOR Rz1 TŰ 158 
49 KT(RIzRKRÉT 

38 MEAT R 

$A FOR Fsi1 TŰ 158 
rű FRIMT F.KT-ER) 
ag MEAT R 


a 


Egy megjegyzés a SKG7 es sorhoz: a pi jelét a RESTORE 

gomb mellett találj uk meg, SHIFTtel hívható elő. 
Természetesen az R:tR ( azaz a sugar negyzete) 
hatványozas formajában is felírhato: sza rest] (A felfelé 
mutató nyíl a BÁSICben a hatvaányozas jele: utana all a 
hatványkitevő.) Ugye, mennyi gepelést megepdőrol így az 
ember?... 

Ez a program Kisz nehezen lendül mozgásba, 
hiszen rengeteg számítast Kell elvegeznie, de utana 
mint a villam, ontani kezdi az adatokat, szépen 
táblázatba szedve. f 4 ; J 

;; Ezek ,a szamok í-tol , 150 egysegig terjedo 
sugarhosszusagu KorokK teruletenek adatai, amelyeket 
Persze alig lehet megfigyelni, mert egy szempillantás 
alatt játsuhannak a kepernyon. Csakhogy a gép a Pprograrn 
lefutása" utan nem felejtette el öket - barmelyiket reg 
lehet kerdezni tőle. Peldaul: 


? KT(C82) 
A RETURN megnyornas a utan rmegkapjuK a választ: 


24328.4955 
A 88 egyseg sugarú Kör területe tehát ennyi —- és a gep 
e percben 1-tő1 159-ig mindegyiket tudja. 

Ha meg akarjuk sporolni az idot, a Program 
7090-es sorát el is hagyhatjuk. Semmi szükzeg ra, hogy 
Kiírja aA soK adatot, amit nem iz tudunk felfogni, olyan 
gyorsan eltűnnek a szemünk elől. Csináljunk a 7909-es sor 


elejen MESZ EZE E 3 betűnek, rjiuk be: REM, és ezzel a 
számokat Kiírató HOSE He küggétús a forgalomból . (Ezzel 
persze fölöslegesze vált a 60-asz es a 8380-as szor is; 
írjunk ezek elé is RENMet!) Ilyenkor lefuttatva 


a Programot, egy ideig semmit szem látunk Aa képernyőn, 
aztan is csak a READ jelenik meg. A aép azonban most 
mar tudja a tudnivalókat (esz tudni iz fogja, amig NEWt 
nem mondunk neki); barmelyik KT-érteékre rakerdezhetünk, 
sot Az egyes KT-ertekekkel rmuveleteket is 
vegeztethetünk. y 
Milyen arányban van egymassal peldául az egy 
egységnyi sugarú Kör területe a Ket egységnyiével? 


? KT(C2Z2/KTK1) 


sz E 


A gép villamgyorsan adja a utazás 4. 9 j 

e. AA Az egydimenzios yektorok mellett elobb-utabb 
szuksegunk lesz ket- es tobbdimenzios tombokKk kezelesere 
is. Ebben a könyvben azonban nem megyünk tovabb a 
kétdimenziosnal. § : A 5 

A Ketdimenzios tambot (matrixot)? a. legegy- 

szerúbben ugy kepzelhetjük el. mint egy tablazatot, 
amely szamazatt sorokra es aszlopokr a var OSZTVA, 
valahogy így: 


9.OSZLOPF 1.OSZLOP 2e.OSZLOP 


9.50R AK O,O? AC(O,12 AR .2) 
1.SOR AC 1,Aa) AC 1,1) AK L.29 
2 


. SOR Ae ,O? AC 212 ACE ;EI 


EZ mar egy kisse ijesztonek is tűnhet. de jusson 
eszünkbe. hogy még mindig ugyanolyan valtozokról 
beszelünk, mint a jó üreg A vagy AB$. Hogy "errol 
megbizonyosodjunk , írjunk be nehany sort, s mindegyik 
utan nyomjuk meg a RETURNET! 


A YBC3.,.129-"KÖZÖNSEÉEGES SZOYEGES YVALTUZÚ VÁGYOK " 
s NT BE 2 12 

PIKCO,Aa2-3.14159: ? PIK(O.Aa? 

OGA/A 7, 2.-467 : ? OOA 


Lehet, hogy kisse túlmagyarazzuk ezt a reszt, de fon- 
tos, hogy ha toömbokrol, 
vektorokral, matrixok- 
ral beszelünk, valtazak - 
ra gondoljunk, ne másra. 
A nap vegen egy Kis be- 
lyegalbum-rendező Prag- 
ramot közlünk; gepeljuk 
be gondozan , ez utana 
futtassuk le. SaK gya- 


Korlati haszra HG Srg 
mert a begepelt adatokat 
nern orzi rreg tése soKKal 
inkabb . arra jo hagy 


figyelmesen yegigolvazva 
a Programlistat, megtud- 
junk egyet-mazt a . tobb- 
dimenzios toömbokrol. 


PRIMT"" 
PRIMT"BELYEGRLBIM-REMNEZ(" 
PRIMT:PRIMT"HANY OLDAL, S0R . OSZLOP VAM?" 
IMPUT" (AZ ADATOK KÖZE TEGY VESSZOT!I "S; ÜL. SÜ.ÜS 
DIMBESCOL , Sí. 057 

IHPUT"HAMY BELYEGET AKARSZ ELHELYEZMI" ; HA 
PRIMHT:FORI51TOMZ 

IMFUT"OLJAL. 52.72" ,0N 

IMPUT"SOR Szezz" s 9R 

IMNFUT"OSZLOP SZ.-2";OF 

INPUT"HOHNAN VALÓ A BELYEG:"; EG$ 
BE$SLOD.SR.0FPizBO£ 

MEXTI 


" REM VISSZAKERDEZES 


PRINTET" : IMFUT"HANYADIK OLDALT AKAROD MEGMEZMI" ; Ül 
FORISÍTOSO 

FORJSÍTÓOS 

IFBESCOD, I, Jaz" "THEMNBES-OM , I, Tsz"MIMCS" 


PRINTI: "SORS 5 TI. "ÖSZLÖP: "; BESZOD I, J2:" BELYEG" 
FOR KksiTOSOG:MEAT K 

MNEXTJ 

MEATI 


IMFUT"AKARSZ IJRA LISTAZMI? €I/7M9":LI$ 

IF LI$s"I" THEM GOTŰ zZ18 

IMPUT"AKARSZ UJ BELYEGET BETEHMI? £I/M2":BE$ 
IF PE$z"I" THEM GÜTŰ 538 

END 


Z z 
KÉZ a HEHE NINCSENEK VELETLENEK - VAGY MEGIS? 


Ez 5 rész meglepő tulajdonságait tarja fel a 
szamítogepnek: alyan benyamásurk tamad, ,mintha a gép 
önalloan döntene bizonyos dötráökban a Errol persze nincs 
szó; a gep mindig emberi utasításokat hajt vegre, most 
mégis úgy tűnik, mintha az ellenkezője volna igaz. 
Kezdjúk egy Programmal . Ez tulajdonkeppen 
megint fej számolásra kesztet: ket, a gép által megadott 
számjegyet kell fejben összeadnunk és begepelnünk. 


19 REM GYORSSZAMOLO — . 

28 XzINTCIBERMD(19)-41 

39 YzIMTCIÓKRMD(19941 

40. PRIHTATá"yizt ; 

59 INPUT Z 

60 IF Zex47 THEN PRINT "SZUPER!" :GOTOZA 

79 FRINT"HOPPA, EZ NEM JOTT ÖSSZE. PROBALD UJRA." :GOTO4G 


Indítsuk el a programot, és játsszunk vele egy darabig. 
hogy erezzük, milyen rendszer szerint adja a szamokat. 
Ha mar: megúntuk , ebből 3  programbol nern Konnyu csak 
úgy , a STOP megnyomásával Kilépni, hiszen a program 
olyan, hogy csak számjegyek begepeles et fogadja el (az 
INPUT szó utan valos változot var, amint az a string 
fajtaj ából Kideruúl). A program leallítasaának modja a 
következő: nyomjuk le a RUN/STOP gombot, es amíg nyomva 
tartjuk, nyomjuk le€e a RESTORE gombot is (mostanaig 
megúsztuk emnek a kezelését). Ez az egy billentyű 
hangyanyit maskeppen jar, mint a többi a tfomrmodore 
64-en: egy Kicsit ra Kell Koccantani ahhoz, hagy a 
PFrogram leálljon. 

Figyelem! Agyancsapni nem kell! Csak egy 
Kicsit koccantani rajta! : 

Ebben a a programban két izmeretlen Kifejezés 
van: az INT es a RND. 


szék, száll 


Az INT az integer, azaz egész szám rövidítese. 

A RND egy soKKal érdekesebb dolog a mi 
számunkra. mert rengeteg játeklehetőseget Kínal. A 
három betú egy anaol szó rövidítese: RANDOM, azaz 
véletlenszerű. Ha ezzel az utasítassal találkozik, a 
számítogep magatol helyettesíti be a valtozó értéket, 
ahogyan neki eppen jol esik. No persze nem eppen 
teljesen szabadon, hanem bizonyos Korlatok között. A 
Korlatokat is ott látj uK a programban , és nemsokara fel 
is fogjuk ismerni öket. 7 , 

j A RND véletlenszerű szamokat hoz letre. 

megpedig 0 es 1 között. Ha tehat egy ilyen Frogramot 
futtatunk: 


19 ? RND (12 
eg GOTO 19 


3 Bá .. z 
akkor a Képernyon csupa 1-nel Kisebb szam fog folfele 


liftezni. Ahhoz , hogy egynel nagyobb számokat is 
Kiírjaon a gep, termeszetesen meg Kell szorozni 
valamennyivel. Es amennyivel megszarozzuk, az a szar 
lesz a felső hatara az RND altal Kiírt szamok 


rá [4 
tartomanyanak. 


19 ? EXRND( 1) 
29 GOTO 19 


Ez a. program 9 és 6 közötti szamokat Ír fel a 
Kepernyőre, tengernyi tizedessel. Raadasul a 6-ot 
sohasem eri el, hiszen eredetileg rnindig 1 alatt 
maradt. 

Ha azt akarjuk, hogy 1 alatti szamokat ne 
írjon (mert, mondjuk ;, egy dobókocka véletlenszerűen 


Kipörgetett szamait akar juk utanozni), hozzá Kell 
"adnunk 1-et, így biztosan nem megy 1 ala, es így már 
eléri Aa 6-ot is. A tizedesektal pedig úgy 


szabadulhatunk meg. ha az INT utazítast hasznaljuk, 
tehát közöljük a geppel. hogy csak az egesz szamokra 
vagyunk Kívancsiak. ; ; 

ő A dobokockát utanzó programunk tehat így fog 
Kineznis: 


18 FRIHT INTZE$RMDL15541 
zó GOT 14 


TEK 


Ami persze a végtelenségig dobalja a kackat, tehát egy 
FÜR...NEXT ciklusba agyazva kell megfegyelmeznünk. Hany 
Kcckadobast akarunk? Sok tarsasjátekban a szabály 
általában kettot ug3ay harmat engedélyez, tehat 
maradjunk a haromna 9 e 


3 FOR Isi1 TŰZ 
19 PRINT INTCESRND(19)41, 
ag NEXT I 


Ez kesz a legegyszerubb dobokocka-program, amely egymas 
melle írja a Kidobott harom szamot , és sem 1 alatti, 
sem 6 folotti szamot nem dob Ki soha. 

Most mar azt iz ELJ K hogyan lehet a 
véletlenszerű ertek hatarait beállítani. Ha 1 es 199 
Közötti egész szamokat akarunk a geppel Kiíratni, akkor 
ezt kell írni: 


? INT( I99XRNDO( 199)1t1 


Ami persze nern jelenti azt. hogy az 50 és 100 közötti 
i/ ., , 
szamokat igy kellene kerni a géptől: 


? INT( 1994RNUK 122450 


Miert is? Mert a szorzassal beallítjuk ugyan a felső 
hatart 1929-ra, az üösszeadassal viszont nemcsak az also 
határt emeljük meg 50-nel, hanem a felsút iz, tehat so 
es 150 közatti szamokat csinaltatunk a geppel. Mi tehat 
a teendo? Ez: 


? INTÉSOKRNDIK 129245 


7 / já; höz s fi 
Viladgcacs? AkKor gepeljuk be a Kovetkezo Kis Programot , 
amely az esti eaboltot rajzolja Ki a kepernyore , 
ahogyan sorban Kigyulladnak a csillagak. 


18 REM CSILLAGOK 

za FÜKESSzeR ks: FÜKESZZAL E 

38 FRINTEÉT":PRIHT" a" :REM CTRLHZ2 
49 PsIMTCZSERHOK 17: 

ad HSIMHTÉZZERMHNK 17? 

ét FÜR vsű TŰ €:FEIMT:HEXT 

A FRIHT THRELP2 "sk" 


1 


83 FOR Msi TO(S00$8RMDf 197 :MEXT HM 
99 FRIMT"A4": GOT 49 : REM CLR/HOME 
A Programnak majdnem minden eleme ismerős, Je van egy 
érdekesség a program 3909-as sorában. Ez - mint látjuk — 
egy "fékező" sor, amely lassítja a Program futását. 
Azt, hogy mennyivel lassítsa, egy véletlenszerű számmal 
határoztuk reg ! Igy a csillagok kirajzolódásának 
gyorsasága ( az adott hatarakan belül) teljesen 
szabalytalan. 
Jo esetben összezer Ket rna. — 
gyarazattal tartozunk e prog — 


Ny pp rammal Kapcsolatban. A B90-as 
2 
8 x ; 3 bet pe) sarban latunk egy PRINT 
A bel bál Fast sz ; 
sú) 0 NN 1 M 34 z utasitast, amelyhez -nem irtuk 
A MY ada, hogy mit írjon Ki a gep. 
je va Va A PRINT utan eddig mindig ott 
pe p 52 ml / / / 
eV XN zzex allt valamilyen valtozo, amely 
FA ? A [/d 
GST NI vő. JV KR aztan megjelent a kepernyon. 
NN ) (R1lvé. a PRINT, Ket 


p Nos, a ? mint tudjuk; 
s dolgot csinal" egyreszt kiírja 


Z .. 
az utana kovetkező . valtozot 


(valtozokat) a Kepernyore, 
( S mazreszt - ha vesszovel Nagy 
ax § 


pcntoasvesszoavel fal nerm Kerjük 


az ellenkezojere sa új sorba 
ugratja a cursort. Nos , itt 
, 

€PP ezt a tulai donsagat 


hasznaljuk. 
A PRINT utasítás, ha mogatte nem á1i Kiiírando változó, 
csak a második funkciot teljesíti, azaz egy zorral 
lejjebb viszi a cursort. 

A 9398-es szorban alaphelyzetbe visszük a 
cursort, utana pedig egy véletlenszerű szammal 
meghatározott 37 amu zorral lejjebb ugratjük s Igy a 
számítogep maga dönti el. hogy melyik sorba rajzolja a 
Következő csillagot. 

A masik ismeretlen kifej jezes a TAB. Éz a 


2 Z 
"tabulator" szo rövidítese - aki ismeri az irogepet, az 
tudja, hogy a. .táblazatok gepelezehez hasznalatos 

.. " Z 
eszkazral van szó a latin "tabula", azaz "tabla" 


szdbel ered). 


ET A TAB utasítashoz szorosan hozzátartozik egy 
zarojeles szám, amely azt mondja meg a gépnek, hogy 
hany oszloppal mozdítsa el a cursart jobbra. Ez az 
utasítas: 


ST RBESON TAK" 


azt jelenti, hogy a Kkepernyú zo. aszlopában Ír ki egy 
csillagot a gep. (cYigyazat:! a bal szelsó oszlop szára 
AAA Kepernyon 49 oszlop van, a. TAB ertéke azonban 
több is lehet 49-nel. . TABCAD) a masodik sor első 
oszlopat jelenti, TAB(BO) a harmadik sor elso oszlopat, 
es így tovabb. A legmagasabb értek, amit a TAB 
fölvehet, 855. § 


F A programban ezt 3.z oszlapszámot is egy 
veletlenszeru szammal hataroztuk meg - így abszolute 
semmit szem lehet tudni arrál. hogy a gep hová fogja 
Kirajzolni a kovetkeza csillagot. Az is lehet, hogy 


alyan helyre. ahol mar van egy , tehat eszre sem 
vesszuk. Lehet fogadasokat kötni, hogy mennyi ido alatt 
teriti be a teljes kepernyot csillagokkal... 


mát eze 


E b É 2 € 
zá HARAF HÁZI NYOMDA SZAMITOGEPPEL 


Par nappal Korábban megismerkedtünk a hol vidam, hol 
rosszkedvú babaval. Most átalakítottuk szeszélyeszsét 

teljesen szabálytalanul mosolyaoadik ds Komorodik el. Ki 
is színeztuk egy kicsit; ha valaki el akar játszani 
vese, például átrajzolni az arcát, Kicserélni Aa 
színeit, stb, akkor eleg betolteni a kazettaroól a 
Korabbi valtozatot, es csak azokat a sorokat 
megváltoztatni, ahol különbséget látunk. (Ez persze 
majdnem minden sorra igaz, mert bevezettük az S5§4-t; 


amely 14 üres helyet tesz le minden szor elejére, hogy a 
babánk a Képernyő Közepere Kerüljön.) 


A PRIMT"7I94" : REM CRSR LE 

3 POKESSZAR, 3:POKES3281. 1:FRIHTW" 
3 s$z" m":REM CTELHB 
19 PRIMTS$S;" ötdúgte" 

29 FRINTS£;" e9064GHGGK" 


38 PRIHTS$; "ae aan" 
4 FRINTS£: "00 en" 
58 PRINTSÁ: "dik Ho mlm TMKY" 
Ég FRIMHTS£$: "em en" 


79 PRIMTSÉ;"ag DX OC mag": REM Üsztv 
89 FRINTSÉE; "ag öt nb" (REM Ú5st3 


98 FRINTEZ$; "am ae" 
19809 PRIHTSE:" e We fW" "REM CTELHI 


119 PRINTSÉG" Witt 77" 

124 PRIMTSÉE" a [ml " 

179 FORM5SITOIHT(RHDÉ17$15889 : MEAT 
599 PRINT "3A09DNM" : REM ÉRSE LE 

519 PRIMTE$:" ddtgáBB" 

529 FRIHTS£E:" ú00646gáB" 

ja PRINTSZ; "408 et" 

54 PRIMTSE; "ag s" 

SS PRIHTSÁG Váték MT Tan" 


ízét 


ad FRKIMTSÉG "ae Me TK" 
A PRINTS$; "ap gen" 
5388 PRIHTS$: "ae 0 Máh TáN" 
ndA FRIMTS$; "dt W7 kén 1 Já 
6Ak FRIMNTSÉ:" a B fe" 
618 FEIMTS$;" mt va 0 
szA PRINTS$É;" Wo" 
sza PRIHT " SzeIsTBI" 
érő FÜRM5S1TOIMTÉRMD( 191988 : NEXT 
76A GÜTÜLA 


LA B tl új Fell j : NBN ) eg 
Es itt a második Kötet uegen azok szamara, akik 


nyamtatóhoz (printerhez) tudnak jutni, elmondjuk, 
hogyan lehet Pragramunk listájat papirra nyomtatni, 
hogy ne csak a képernyőn szerkeszthessük, 
módosíthassuk. 

Először iz kössük össze a printert a 


számítógéppel, és kapcsoljuk be. ( Ha nem kazettával, 
hanern magneslermezzel dolgozunk , akkor a printert nem a 
számítógépbe kell csatlakoztatni, mert ott most a drive 
van , hanem a drive másik csatlakozójába.) 

Allitsuk be a papirt a Pprinteren. Utana 
töltsük be a gep memóriajába a programot , amelyet Ki 
akarunk . nyomtatni. Ezután gépeljük be a Következő 
sorokat. mindegyik végen megnyomva a RETURNt: 

OPEN 1.,4 

CtMu 1 


EKKar a printer mege — 
levenedik, és Kiirja a 
papirra: READY. 


EKKOar írjuk 
be a LIST utasítazt, 
es nyomjuk meg a 
RETURNt ! 

A printer 
munkába lendül: nagy 
sebességgel K iny arn— 
tatja Frogramunkat, 


majd ,. amikor elkészült 
vele, leáll. 


Most gépeljük be a következő sort: 
PRINT §H 1 


€s.ismét RETURN. 

Vigyazat!!! Nagyon fontasi! Ez a PRINT nem az a 
PRINT, amit eddig megismertünk ! Ezt mnern lehet 
rövidíteni kérdőjellel. hanem ki kell írni! 

AZ a kis kettős Kerezzt a 3-asz billentyún 
található meg, és SHIFTtel hívható elő. 

fi Ha megg zomtuk a RETURNt., a Printer nyekkemn egy 

picit, es ekkor beirhatjuKk az utolza uzenetet: 


CLOSE 1 


Z té; fi 
es ujbol RETURN. 
Ha több Programlistat akarunk egyszerre 
Kinyomatni, akkor érdemes egy Kis programot Írni erre, 
f áj. A , 
a fenti utasítasokbol. 


at , .. d 9 
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